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All programs are found on the Vision tape lei the file noted under the 
program name. Underlined terms are included in the glossary r 



A 



A global variable used to generate ellipses. 



An«bM (Subr) 

Angles New 
LPSBKS i-21 



(An&btn PI P2 P3) P are points . Returns 8 



where ; 




8 radians 



Arrayp (Expr) 
Region Subrs 



(Arrayp Name Arg L> Where L ■ («.«. * . ■ R.) 

Approximately (Array {Eval Name) (Eval Arg) 
n-n* - - . n,). Prints an error message if 

there is insufficient room. 



B 

Bind (Espr) 
Gen Stuff 



A global variable used to generate ellipses , 

(Bind L. 1«> where L. is a List of atoms and 

L* is a list of S-expreMions* Bind bind* the 
values of the S-expressions (they too may be. 
atoms) to the atom*. 



Bindq (Fexpr) 
Cen Stuff 



(Blndq {A- A, * » . A ) (S. S, , r . Sj). 
1 * n 1 i n 

Same as: {Bind (Quote (A. A^ , ¥ > A )) 
Quote (S. S. » * * S ))> , 



Body 



A senri-global variable assumed by iterate 

to name an expression Co be repeatedly evaluated. 



Bndry (Fexpr) 
Region Subrs 



(Bndry A) Approatimately equivalent to: (Setq A 
(Cons BeV(CdT (Region Pt Pred Lowpt Uppt)))). 



2. 



Boundary 



A connected set of points of a refilqn all of 
which neighbor no late outside th« region. 
(Points diagonally across from each other in 
a square arc not connected but tbey arc neighbors). 



Bstcrv (Bxpr) 
Bstcrv 4-21 
LPSGRS 4-21 



(Bsccrv L) where L ■ (Ind L.); and L. 



(P 1 P 2 



v« 



Ind e {0 1 2 } for 

straight line,, concave, convex; 

points. If Ind - Bstcrv is the identity 



p. are 



function. Otherwise^ if the points can b« 
approximated by a circular or elliptical arc, 
Bstcrv yields; (IND) 'ELLIPSE 1 P Q n 1 n 2 a FjS) 
wher*: 

IND is unchanged; 

* ELLIPSE* is th* type of curve y as opposed to 
hypterbolic ; P fl is a point representing the center 
of the ellipse; tx. is a LISP number for the length 
of the principal seal-axis; I 

tU is for the S*tOrtdary SCini-axib; 

« Is an angle -*/2<a*ir/2 measuring th* tilt of 

the principal axis froea the horizontal, about 

the canter of the ellipse; 

P. s e specify che Mgn&nt of tha curve in the 

following laanner: "beginning at point F and 

u*i fl g ^c\ as cett | : * r P<*^ nt > L * te & radians about 

? Q> in the clockwise direction if IND = 1> 

otherwise In the counterclockwise direction. 

This is the relevant segment. 

For second-degre* curves which are not ellipses, 



3. 



Calif (Fexpr) 
Region Subrs 



Bstcrv returns the general equation coefficients 

and the first and last points on the arc E,g, 

(IND Name A B C D E f . P 9 ) where Name is Hyper 

2 
or Parab and the best fit curve is Ax + Bxy + 

2 
f y + Dx + Ey = 1, Bstcrv requires floating 

point input poitits , 

(Calif F n Arg x Arg 2 , * . Arg n ) 

(F n {Eval Arg 1 )(Eval Arg 2 ) . . - (Eval Arg n >)* 



Circular list 



L - (Ljl • CL 2 . <. . - .(L fl . L) * - -))} is 

a circular list, (Cdr (Cdr (. . .(Cdr L) . . ,))) 
results in Lj if there are n Cd r ' s * 



Clear tab (Expr) 
Region Subrs 

Complement (Espr) 
Region Subrs 



Cos (Expr) 
Gen Stuff 



(ultartaVl sets all B— hta h sn!:r:ey to X i I , 



(Complement L. L ? ) yields L' which is L. with 
all occurrences of elements from L_ removed* 

(Cos X). Returns cosine of X radians- 



Curve (Expr) 
DT Etal 



DD (Fexpr) 
IJI ^tal 
Conv 9 

Dan 



(Curve L) where L is a list of Bstcrv outputs 
representing a boundary to a region. Curve 
returns a name-- e-g* "funny looking thing" ~ 
describing the shape of the resign so bounded. 

(DD tt S). (DT (Quote M) (Quote S>). 

A global variable used to determine the density 
of points, to ba read from the vidisector . If Den 
is n, every tr— ~ point is read. 
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Den (Fexpr) 

Region Subrs 

Dig gen (Fexpr) 
Region Subrs 



DIsp (Fexpr) 
Region Subrs 



Display (Vi'.x-pv) 
Region Subrs 



(Den X). Sets Pen to X. 



(Disgen A L) where L » (d, li* L_ . . . L ) 

and L. are lists of points. Using PI _i s t + 
constructs an array on A to plot the points 
in the L Assuming the scope is in parameter 
node, initializes it to point mode for Dlist 'a 

instructions* Terminates display instructions 
by resetting scope to parameter mode and stopping 
display. The element d is ft density number. 



(flisp A) Inserts array A at the head of Pis list 
(with a single cons) causing A to be interpreted 
by display mechanises r 

{Display F Arg. Arg* Arg„ . . . Arg, ) . 

Approximately r The sequence 

i) (F n (Quote Ft list) Arg 2 Arg^ , . . Ar & n 5 

ii) (Disgen Arg. Ptlisc) 

iii) (Disp Arg L ) 



Dlist (Expr) 
Region Subrs 



(Dlist L M) where L is a list of points and 
M a number. Assuming an array Object and an 
index I generates instructions to the scope to 
display , in point mode * the points in L. Dlist 
first multiplies each coordinate of each point 
by M (assuming that the points had at one point 
been >C£le d}„ I. is left pointing to that 
element of the array following the last one 
entered by Dlist* 



5. 



DT (Expr) 
DT Etal 
Conv 9 



ELLIPSE (Fexpr) 
Gen Scuff 



Erase (Fexpr) 
Region Subrs 



{DT M 5) where M is a pod el and S is a scene . 

it returns a aeries of L., where 

L, - {(Eval M) i IS (R- ... R< 4 »Ics Value 

is a list of region* not used in found 
figures. Each L represents an instance of 
a figure in the scene which matches the model . 
In L „ the Rj/s are the regions which compose 
the figure, E+$, L might be "cube i is A C D, 

(Ellipse n t n_ X. Y e p £). Sets up global 

variables to generate points of an ellipse * The 

ellipse has axes parallel to the coordinate axes. 

That parallel to the X - axis has length 2N-; 

the other has length 2N . The ellipse passes 

ni n; 

2 ■ Yh 2 
at its 



thimugh the points (XS, YS) , (XS _ -I, VS - tt), 



(XS - n 1 . YS) and <K - ^ YS + ^ ) 



axis extremities- The global var table paraa 
deterraines which point on the ellipse is 
generated. The last input element has as value 
a function (which Is bound to the global variable 
f _1 n cO and is used to increment par am , the 
first four variables are hound to the atotms A, 
3_ ? Xsh I f t and Yshift respectively* See Genpoin t . 

(Erase A. A_ . . . A ). Removes all nested arrays 
1 Z n * 

from Pis list and thus from the scope. 



Fine 



A global variable used in curve generation. See 
ellipse i line , genpoint * 



6. 



Genpoinc (Expr) 
Gen Scuff 



Hashpt (Expr) 
Region Subrs 



Hash tab (Array) 
Beg Ion Subrs 



Hist (Expr) 

Region Subrs 



(Ganpoint) Evaluates the expressions bound to X 
and 1 and delivers the CONS' ED result as the 
current point on. a desired curve. It is 
assuaed that K a V have had expressions bound 
to them intended to generate points. See 
I' i ipsti , JJJj_£- nlflC, it in ^'.oS^rn-il j.) I.li.ic 
parafli is used in the point generating expressions 
to determine which point to produce, and 11) 
that a function has been bound to fine which 
increments the parameter as one wishes. Generate, 
then, after generating the current point, applies 
fine to pa ram in preparation for the next point* 

(Hashpt P) where P - (X * Y) t inserts the number 
Y into the Use pointed to by the element which 
corresponds to X in the array Kashtaja . 

Naaes a one din&ensional array (or array nam*) 
used Co store points of a two dimensional grid. 
The one distension corresponds to the first (l*ft» 
Car) side of a £Si££.* Th e array ia as long as 
ntcessary to accomodate all possible horizontal 
values between selected limits (see lovpt and 
u-ppQ - Each entry in the array pc-ints to a list 
of second coordinate values. 

(Hist F P. P* L) where P.. and ? 2 are points * 



L and F n £r*i a funrtion of A 



single point , e.g., (F P) is an intensity. 
Using ? 1 and P^ aa Lovpt and Pppt , Hist aa ^s t0 
L a list of ordered pairs* The first 
element of each is a value of F^; the second Is 
the number of times that value occurred* 



'. 



A global name often used as an array Index. 



Geti Stuff 



(Iterate (a x S^ (a 2 S 2 ) 



.)(a rt SJ) 

n ti 



Ltngthc (Expr) 
Region Subrs 



Line (Fexpr) 

Gen Stuff 



Litieprint 

Region Subrs 



Lowpt 



^owpc (Featpr) 
Region Subr 

Memhash (Expr) 
Region Subrs 



where one of the a, x & ±q body end another 
is terminate . Iterate first binds the values 
of the S. to the a.. Then it evaluates body 
until the evaluation of terminate i s T„ at 
which point It returns result. ( Result. I* nil 
unless set otherwise). 

(Langthc L) where L is a circular liat .returna 
the length of L, 

(Line n. n. p s f) Line Bets up global variables 

with which generate generates a line. The 

variables (n. , n.) are a point through which the 

line passes when pa ram is zero. The variable 

p is bound to nar am : s is che slope of the line; 

f is bound to fine 

(Lineprint) prints on line printer 

I) (Lowpt Uppt Den) on one line 

ii) The array determined by Lowpt Dppt Den in lines, 

A global varisble point whose coordinates are 
US*d as lower bounds. Lowpt and Uppt define a 
rectangle in the vid i bjbc lev ' g range, Lowpt 

defines the lower left corner and uppt the 
upper right* 

(Lowpt X Y)> Lowpt set to (X - Y) . 



(Memhaah P) where P - (X • Y) yields: 
I) T if the point is in Hash tab : 
ii) Nil if not. 



•:-. 



Mcdel 



KZP (Expr) 

Region Subrs 

Ob j set 



Parar: 



Par am 2 (Expr) 
Region Subrs 



Point 



Point2 (Expr) 
Region Subrs 



A model ia an atom which has on its property 

list, under "regions/ 1 a list of lists- Each 

one of these Is of the form? 

an atari* followed by a list of properties and 

pointers. For example, to define a pyramid 

with two of its sides visible; 

(Defprop Pyraraid{ 

(A (Neighbor B) (Shape Triangle)) 

(B (Neighbor A) (Shape Triangle))) Regions) 

(*ZP P) 

(Mot (Zerop (Space (Car P) (Cdr P)))) 

A global name often used as an array name's 
naue* 

A global variable used in curve generation. 
See ellipse , line , eenooint , 

(Paratn2 Mode Light Pen Stop Scale Intensity) 
generates (and stores in the array Object ) a 
display word intended to be interpreted in the 
parameter mode. The arguments mean what they 
aeem to nean. (See page 63 of PDP-6 Manual,) 
Parsm2 uses and increments 1 as index for the 
array . 

Coordinate points nonnally used to refer to the 
two dimensional vidiaector are assuced to be 
dotted pairs . The horizontal coordinate comes 
first (X • T), 

(Point2 Axis Mode Light Pen Intensity Position) 
is to point mode as Faram2 is to parameter mode. 



9. 



Polyseg (fcapr) 
Poly Grf th 



I'r,,:: 



Predicate (Fexpr) 
Region Subrs 

Pt 

Pt (Fexpr) 

Region Subrs 

Ratter (Fexpr) 
Region Subrs 



Reclaim (Fexpr) 
Region Subrs 

Region (Expr) 
Region Subrs 



(Polyseg L) where L is a list of points which 
is a boundary , Folyseg returns a list of points 
which is a polygonal approximation to the 
boundary (except that the p ointy in the output 
are a factor of 4 times larger than those In 
the input) . 

A global variable which is intended to reference 
a predicate of a single point . 

(Predicate P) sets Pred to F, 

A global variable used as a point , 
(Pt X Y). Sets Pt to (X ■ Y). ' 

(Raster A) Approximately equivalent to; 
(Setq A(List Den (Scan Pred (Scale Lowpt) 
(Scale Uppt))))* 

(Reclaim A) resets BPORG to just prior to the 
Array A* 

(Region P^red P 2 P ) where the P are points 

and Pred is a predicate, yields a list L ■ 
(H Bj B 2 . . . BJ where N is the nu«ber of 

points found in the region and each B is a 

list of points which form one boundary of 

the _r€£tor-, i! , defied: 

i) R contains P-; li) All points in R are 

connected to P. ; lit) All points in R satisfy 

the predicate Fred; iv) All points in R are 



1 



10. 



Region 



Region 



within the bounds P ? and P- considered as 
lowpt and uppt ■ 

A connected sec of points all of which satisfy 
some particular predicate . 

A region is an atom which has on its property 
list the properties "Neighbors" and "Shape 11 . 

Corresponding to "Neighbors" is a list of 
atoms which are neighboring regions of the 
given atom. Corresponding to "Shape" is a 

sliupi. 1 tiarac - 



Reaihash (Expr) 
Region Subrs 

Scale (Expr) 

Region Subrs 



Scan (Expr) 
fcegion Subr 



Scene 



Sclear (Fexpr) 

Region Subrs 

Sets (Expr) 

Gen Stuff 



(Eechash p) where p - (X • Y), removes all 

rc^rL-ficts !:.: lil-il p : J J. ; i I Iron | L l5htab . 

(Scale P) where P ■ (X * Y) is a point 
(used for yidigector referencing). Yields 
P 1 - (X/Den * Y/Den). 

(Scan P P 1 P ? ) where P is a predicate and 
P are points . Yields a list of points 
satisfying the predicate and within the 
rectangle defined by P. and P- as Loypt 
and Uppt^ respectively. 

A. scene is an atotn which has on its property 
list, under "regions" a list of atoms 
corresponding to regions in the scene. 
(Sclear). (Setq Dislist Mil), 



(Sets L) were L is ((a S ) (a SJ> . . . 
(a S )) For each 1, binds the value of 
the £-expression S po the atom a , 



li- 



st tq (Fexpr) 
Gen Stuff 



Shape (Expr) 
Region Subrs 



(Setq (a x S^^ S 2 > (a fl S fl )) 

For each i> binds the value of the S-expression 



S to the atom a * 



(Shape L L L 2 N> where Lj - ((R x L 1L >(*2 L > 



(R n L m» 



L 2 - ( Bl B a . . , B n ) 

R. is a topoloav- coded descriptive name of a 
region; L is a list of neighbors of R. 

B Is a description of the boundary R. suitable 
for input to Curve > Shape builds a description 
of this scene suitable for DT and stores the 
£_e&ip_n list under (Eval N), which must be an 



Sin (Expr) 
Gen Stuff 

Terminate 



Topology (Expr) 

Topo System 



(Sin X) Returns sin of X radians* 

A semi-global variable assusned by iterate 

to name an expression which is a predicate 

for a terminating condition, 

(Topo log N) where N is the number of squares 

in a line. Topolog finds regions and generates 

names for then. It also notes relationships 

between then. To Regionlist* Topolog binds the 

list of regions. To each region* Topolog binds 

the properties: Nucleus* followed by a list of points 

fc-Lid; :-:£ighbcrs , rojlow^i "v ■■- i ^ '- :■!' ne-lthbcring 

regions; OuterbouOJ* followed by a list of points; 

Innerbound, followed by a list of listB of points 

forming inner, bounds.. 



12. 



Uppt A global variable point whose coordinates 

are used as upper bounds. (See lowp t ) . 



i 



Uppt (Fcxpr) (Uppt X Y). Seta Uppt to (X * Y). 

Region Subr 



X 

X shift 
¥ 

Y shift and lines. 



Global variables used to genera ce ellipses 



